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DISCLAIMER 


Although this programme has been tested by its 
author, no warranty, expressed or implied, is made by the 
author, or the University of Waterloo, as to the accuracy 
and functioning of the programme and related programme 
material, nor shall the fact of distribution constitute 
any such warranty, and no responsibility is assumed by the 
author or the University of Waterloo, in connection therewith. 
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I INTRODUCTION 


Lisp /360 is an interpretative Lisp 1.5 system written at the 


University of Waterloo. It has been modelled after the Lisp 1.5 


program on the IBM 7090 (1) although many ideas have been borrowed 


from the CDC 3600 Lisp interpreter (2). 


The interpreter was written with several features in mind: 


(A) 
(B) 
(C) 
(D) 
(E) 


(F) 
(G) 


More understandable error diagnostics. 

More effective read routines. 

Compatibility with the previous Lisp language for the IBM 7090. 
Speed in Lisp interpretation. 

The use of 24-bit fullword addresses to ensure the addressability 
of large memories. 

Maximum use of the Universal Instruction Set for the IBM /360. 
Acceptance of Lisp problem programs from both IBM keypunches 


-the 026 and the 029. 


BASIC MACHINE REQUIREMENTS 


A /360 computer with the following requirements; 


(a) operating system OS /360 


(b) the Universal Instruction Set. 


#x 


II ORGANIZATION OF THE SYSTEM 


In this section is described the internal structure of the Lisp 


/360 Interpreter. 


It is assumed throughout these sections that the reader has a 


working knowledge of the Lisp 1.5 programmer's manual (1). 


Lisp /360 is a problem program operating under the System 
/360 Operating System. The memory which is available to the interpreter 
depends upon its allocation by the operating system on the particular 


machine involved. 


The coding of the interpreter itself occupies about 12 K bytes. 
This is directly followed by the pushdown stack and the object list 
(5 K bytes). The size of the pushdown stack is set at assembly time 
(now at 4 K words). Freeword storage occupies the remainder of 
available core and is obtained from thecoperating system by the GETMAIN 


macro. 


The structure of the atoms and their property lists is organized 
in a manner similar to Lisp on the CDC3600. This particular organization 
has certain disadvantages as far as the speed of the read and print 
routines and the utilization of memory is concerned. However, the 
added sae obtained in the interpreter routines and the garbage 


collector provide reasonable justification. 
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A Lisp cell occupies one double word of storage. This allows 
the use of two 24-bit addresses enabling the interpreter to cover any 
size of /360 memory. Each of these 24-bit addresses points to a list. 
The 8 bits remaining in each of the two full-words is used to store 
binary markers. These can easily be tested with the Test Under Mask 


instruction. 


BINARY CAR BINARY CDR 


MARKER ADDRESS MARKER ADDRESS 


0 7 31 63 


Z+2 THE OBJECT LIST 


The object list is a sequential list which initially contains all 
the predefined atoms. This initial object list is generated at 
assembly time. When an atom is produced by the READ function, this 
list is searched to see if the atom already exists. If not, the atom 
is appended to the object list. The object list is accessible as the 


APVAL property of the atom OBLIST. 
2.3 ATOMS 


If the first byte of the first fullword in a Lisp cell has a 1-bit 


in the sign position then that particular cell is an atomhead. 


In the atomhead the first address in the double-word cell points 
to the atom's fullword list. The second address points to the atom's 


property list. 
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The atom MEMBER, with an empty property list is illustrated below. 
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The EXPR- (MEMBER (LAMBDA... has the following structure. 


So TS 


EXPR 
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LAMBDA 


Fullwords 
Fullwords in freeword storage are used to replace the "fullword 
storage’ in Lisp 1.5. 


A fullword is a particular type of Lisp cell which has a) the 


second bit of the second word turned on and b) one of the following 


in the upper word. 
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1) Four BCD characters from a printname (padded on the right with the 
null character X'00' if necessary. 
2) A 32 bit integer or floating point number. 


3) The binary address of a Lisp routine. 


Printnames 


The address in the upper word of the atomhead of a non-numeric 


atom points to the linear list of the BCD printname. 


The atom LEFTSHIFT would have, for example, the following fullword 


List. 


<= os pe eter ace ch ee omen ial 
LEFT 01 Be Be SHIF Ol ~—, T aia 


Numbers 
There are four types of numbers: 


1) integer 
2) Floating point 


3) Logical (read as octal) 


All numbers are stored internally in 32 bit binary form and must 


be converted to BCD for printing. 
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Binary Markers 


Bits 0-7 of each atomhead contain several binary markers indicating 


the type of fullword list pointed at by the upper address. 


bit 0 1 2 3 


1 0 0 0 BCD PRINTNAME 
1 1 0 0 INTEGER 

x 1 1 0 FLOATING POINT 
3 E 0 1 LOGICAL 


The first bit of the lower address word is used by the garbage 


collector to mark active cells. 
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III ORGANIZATION OF THE INTERPRETER 


This section contains a description of the interpreter and some 
of its main routines. Flowcharts of some of these routines are given 
in Appendix 1. The words written in capital letters refer to the 


interpreter coding. 


3.1 REGISTER ASSIGNMENTS 


Register Name Usage 
0 LOCAL WORK REGISTER 
1 LOCAL WORK REGISTER 
2 SUBROUTINE LINKAGE 
3 WORK REGISTER 
4 K4 CONSTANT VALUE '4' 
5 NILR ADDRESS OF NIL, BASE REGISTER 
OF THE OBJECT LIST 

6 FREE POINTER TO FREEWORD STORAGE LIST 
7 PDS POINTER TO TOP OF PUSHDOWN STACK 
8 A FIRST FUNCTION ARGUMENT 
9 Q 3 SECOND FUNCTION ARGUMENT 

10 M SAVE AREA FOR LIST POINTERS 

11 BASE REGISTER 

42 BASE REGISTER 

13 POINTER TO SYSTEM SAVE AREA 


AND BASE REGISTER 
14 LOCAL WORK REGISTER 
15 LOCAL WORK REGISTER 
The usage of the registers will be described in greater detail in 


the descriptions of the routines which follow. 
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3.2 PASSING THE ARGUMENTS 


The A and Q registers and the 20 locations starting at ARGS are 
used to pass up to 22 arguments to a LISP function. Register A contains 
the return value (list pointer). 

Register M is used normally to point to a list that should not be:- 


lost if a garbage collection occurs when doing a CONS. 
3.3 PROGRAM INITIALIZATION 


Program Initialization consists of: 

1) Testing the PARM field of the EXEC control card.-if the 
parameter 'BCD' is encountered the type of brackets and the 
plus sign is set to the BCD code. 

2) Opening the files. 

3) Issuing an STIMER macro to set the clock. 

4) Converting the object list from relocatable to fixed form. 

5) Issuring a GETMAIN to obtain all remaining core for use as 


freeword storage. 
3.4 DEFINING THE OBJECT LIST 


The macro ECHO is used to define an atom and attach it to the 
object list. 

The address constants generated by the macro are relative to the 
NIL atom, i.e. are relocatable. This reduces the amount of text 
to be processed by the system loader. During program initialization 


a sequential scan is made to add the address of NIL to all address 
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constants. The examples following illustrate the absolute addresses. 


The macro's parameters are arranged as follows: 


PARAMETER 
1 
2 
2 
4 


An example of the coding 


tist: 
M ECHO 
DC 
M DC 
DC 
DC 


PRINT NAME (1 TO 12 CHARACTERS ) 
INDICATOR eg. SUBR 

SUBROUTINE ENTRY POINT NAME 
NAME OF ARGUMENTS TO A SUBR 


generated for an atom with no property 


MEMBER 

A (*+8 5 +32) Object List Link 
X'80',AL3(*+8) ,A(NIL) Atomhead 
C'MEMB! ,X‘'40' ,AL3 (*+8) Fullword List 


C'ER' ,X'0000' ,X'40',AL3 (NIL) 


An atom defined withsa property list: 


ECHO 


DCG 


DC 


DC 


ie 


DC 


DEFINE, SUBR, DEFINE, 1 

A (#+8 ,*4+52) Object List Link 

X'80' ,AL3 (448) ,A(4421) Atomhead 
C'DEFI',X'40',AL3(*48)  Fullword List 
C'NE',X'0000',X'40' ,AL3 (NIL) 


A(SUBR,*+4) Indicator 


A (*+8, NIL) Link to Any Other Properties 


AL1(1) ,AL3 (DEFINE) ,X'40',AL3 (NIL) 
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3.5 RECURSION TECHNIQUES 


All interpreter routines that are FSUBR‘'s must be re-entrant, as 
they are either recursive or may be re-entered in the process of 
evaluating their arguments. Of prime importance in effecting recursion 


is the pushdown stack. 


The Pushdown Stack 

One pushdown stack is used to save the linkage addresses and list 
pointers for the recursive and re-entrant routines. The pushdown stack 
is a linear block of core. It is preceded by a work area which may 
contain pointers to lists that must be collected if a garbage collection 
occurs. The pushdown stack is followed by the object list beginning 
with the atom NIL. 

Two macros, SAVE and UNSAVE, are used to pass data to and from 


the stack. 


The Macro SAVE 
SAVE has one argument - a register. Its purpose is to: 
(a) Store the contents of the designated register on the top 
of the stack. 
(b) -Increment the stack pointer (PDS). 
(c) Check for the occurrence of stack overflow. 
For example, 
SAVE A 
would generate the following coding: 
ay A,O(PDS) 


BXH PDS ,K4,ERG2 
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The register PDS points to the top of the stack. The BXH 
instruction increments PDS by the constant 4 (in K4) and esueters 
control to ERG2 if the result is greater than the address of NIL. 
The register following K4 (see previous chart of registers) contains 


the address of NIL. 


The Macro UNSAVE 


This macro decrements the stack pointer PDS and loads the desig- 
nated register with the top of the stack. 
For example: 
UNSAVE A 
would generate 
SR PDS ,K4 


:. A,O(PDS) 
3.6 THE MANAGEMENT OF FREEWORD STORAGE 


The primitive Lisp functions are those used most frequently by 
the Interpreter and the Lisp programmer. With this in mind Lisp 
/360 has been designed to ensure that these functions are coded with 
as few instructions as possible. 


For this reason (as has been mentioned previously) the Lisp 


cell has the form -} 


BINARY | UPPER [ptnary 
MARKER ADDRESS |MARKER ADDRESS 


Hence, fullword instructions are easily used to effect cell address 
referencing and immediate instructions may be used to manipulate the 


binary markers. 
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CAR 
To execute the function CAR(A) > A requires the one instruction: 
2 A,CAR (A) 


where CAR has the value zero. 


CDR 
The function CDR(A) - A requires the one instruction: 
L A, CDR (A) 


where CDR has the value four. 


ATOM 
The testing of whether A is an atom illustrates the use of. the 
binary markers. 
™ CAR (A) , ATOM ~ Is A an atom 
BO ITSATOM - Yes, bit is on 


The label ATOM has the value X'80'. 


CONS 

A freeword list, pointed at by register FREE, is produced by the 
garbage collector. 

The routine CONS: 

1) Stores the contents of registers A and Q in the top cell of 

the freeword list. 

2) Places the address of the cell into register A. 

3) Sets FREE to point at the next cell in the freeword list. 

This is accomplished by doing: 

ST A,CAR (FREE) Store A in the CAR 


LR A, FREE Point A to the cell 
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L FREE ,CDR (FREE) Point FREE to rest of list 

ST Q,CDR (A) Store Q in the CDR 

The end of the freeword list is recognized by having the CDR 
address of the last cell in the list set to the value ‘1’. When CONS 
attempts to store in the cell at location 1, a specification interrupt 
occurs. When this programme interrupt occurs the contents of FREE js 
checked for the value '1' and if present a garbage collection is 


effected. The CONS is then completed. 


The Garbage Collector 

The garbage collector is entered whenever the CONS routine causes 
a specification interrupt by attempting to store in storage location 1. 
This is an indication that the freeword list has been exhausted. 

At this point the garbage collector must mark all the lisp cells 
that are currently needed, and a, Bak together all of the unmarked 
cells to produce a new freeword list. 

Between the address TEMPORAR and the bottom of the pushdown stack 
is stored the address of: 

1) The object list. 

2) The association list. 

3) Any function or interpreter list pointers that are needed 

further. 

The garbage collector saves the A,Q, and M registers on the top 
of the stack and does a scan from TEMPORAR to the top of the used 
part of the stack looking for all addresses pointing into freeword 


storage. All such lists are marked. 


- 14 - 


A sequential scan is then made through all freeword storage to 
unmark the marked cells and to collect all unmarked cells into a new 
freeword list. If no cells are collected (FREE still equals 1) error 
GC2 tee. 

Since freeword storage is obtained from the operating system by 
means of the GETMAIN macro and this area is not necessarily contiguous 
with the object list, the garbage collector must scan two blocks. The 
garbage collector is written to collect a list of areas. Each area 
is preceded by a two word cell, the first word containing the address 
of the start of the next area (zero signals last), the second containing 
the address of the end of this area. 

The garbage collector is used to initialize freeword storage by 
setting FREE to the value 1. The first CONS ee the garbage 
collection. 

The marking is done by setting 'ON' the first bit (bit 0) of the 
lower address of all cells that can be reached by CAR and CDR chains. 
If a cell is reached that is already marked the chain is stopped (the 
atom NIL rapidly becomes marked). If a fullword list is encountered 


then only the CDR chain is followed. 


3/7 LISP OUTPUT 
The output of S-expressions is handled by the PRINT routine. 
PRINT makes use of PCKOVR and PUTATOM. The primitives PRIN] and 


TERPRI are also used for output. 


PRINT 
The buffer area used by PRINT is the area labelled LINE. PRINT 
loads register P from PRTAB, which contains the current buffer pointer. 


A check is made on the argument in A to see whether it is an atom or a 
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list. If it is a list, PUTLIST is entered. The value zero is saved 
and an iteration commences resulting in the printing of the S-expression. 


The end of the iteration is signalled by unsaving the zero. 


PCKOVR 

This routine adds ‘1' to register P and if the result is over 
the value of LINEMAX the buffer line is printed by WRLINE. 
PUTATOM 

When PRINT encounters an atom it calls upon PUTATOM to do the 
necessary conversion and to move the resulting PNAME to the output 


buffer. Floating-point numbers are output in the form sd.ddddddEsdd 


PRINI 


PRIN] loads P with the PRTAB value and calis upon PUTATOM to 


convert the atom and to move it to the buffer. 


TERPRI /WRLINE 

This routine prints the data stored in the buffer LINE, resets 
it blanks and sets PRTAB to LINE+5. 

If a PRINT follows a PRINI, the list generated by PRINT follows 
the data output by PRIN] rather than overlaying it. 


eg. (PRIN1 (QUOTE $$'RESULTING LIST IS -")) 
(PRINT LIST) 


would print 


RESULTING LIST IS ~(---~ LIST -—----- 


PRINT DCB 
The PRINT data control block has the following parameters set: 


DSORG=PS ,MACRF= (PM) , DDNAME=SYSPRINT,, RECFM=VBA, LRECL=136, BLKSIZE=500 
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2.3. LISP INPUT 
All‘Lisp input is handled by the READ routine which in turn uses 


the routines GETCHAR, TRYATOM, and ALLATOM. 


PROGRAM FORMAT 

The LISP programs are punched free form in card columns 1 to 72. 
A Lisp program consists of a series of doublets that are read and 
presented as arguments to the function EVALQUOTE(FN,ARGS). No control 
cards such as TEST and SET are recognized nor is STOP. 

Extra right parentheses may be placed at the end of an S-expression 
to prevent a bad bracket count ruining the evaluation of the next 
doublet. On reading the next S-expression the extra right parentheses 
are ignored. 

If the last program card has been read and there are insufficient 
right parentheses, the necessary brackets are supplied, and the 


structure is printed with the error R2-BAD BRACKET COUNT. 


READ 
READ uses TRYATOM to attempt to form an atom from the succeeding 

characters on the cards. TRYATOM returns an atom if it is successful, 

otherwise it indicates that it found a left or right parenthesis or 

a dot. Commas are treated in the same manner as blanks. 

READ initiallly calls on TRYATOM to form an atom. If an atom is 
found READ returns to the calling routine with the atom. If a left 
parenthesis is indicated by TRYATOM, READ links to UPPER, UPPER is 
the recursive entry point for reading a list that is entered whenever 


a left parenthesis is encountered. LOWER on the other hand is entered 


recursively whenever a '.(' is encountered. 
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TRYATOM 

This subroutine scans one syntactical unit from the card input 

area dnd attempts to identify the unit. 

- commas and blanks act as delimiters and are otherwise ignored. 

- left and right parentheses and dots are scanned off and followed 
by a special return to the calling routine. 

- to aid in the identification of character strings, a series of 
bit switches in the byte ATOMIND are used. These indicators 
are as follows: 

BIT NAME USAGE 
8 ATOMIND A character other than a delimiter has 
been encountered. Construction of an atom 
is in progress. 
7 NUMIND The first character was a digit. The atom 
being constructed is numeric. 
6 FLOATIND A dot was encountered wien NUMIND was on. 
The number is floating point. 
5 EXP IND The letter E was encountered when FLOATIND 
was on. The number has an exponent. 
d, NEGEXP A negative sign was encountered when EXPIND 
was on. The exponent is negative. 
2 NEGINT A minus sign followed by a digit was 
encountered. The number is negative. 
Z LOGICAL The letter Q was encountered while NUMIND 
was on. The number must be octal. EXPIND 


is set on. 
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The register CHAR contains the address of the character being 
examined. The routine GETCHAR is used to move the pointer to the next 
character, which may require the reading of another card. If the 
two characters $$ are encountered the LISP literal that follows is 
recognized. The characters between the delimiters are assembled 
into an alphabetic atom. 

As the characters are picked off the cards they are stored in 
three areas depending on the setting of indicators. These areas are 


as follows: 


CHARATA - to store alphabetic strings 
DIGITA - to store a numeric string 
EXPA - to store digits defining an exponent 


When a Lisp delimiter is encountered with ATOMIND 'ON' control 


will pass to ALLATOM. 


ALLATOM 

If only ATOMIND is 'ON' then this routine scans the object list 
to find an atom with the same PNAME as the character string in CHARATA. 
If none is found an atom is created and added to the object list. 
Numeric strings in DIGITA and EXPA are converted into internal fixed 


or floating point numbers. The proper type of atom is then created. 


READ DCB 
The READ data control block has the following parameters set: 


DSORG=PS , MACRF=(GL) , DDNAME=SYSIN, RECFM=FB, LRECL=80 , BLKSIZE=80 
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CHARACTER HANDLING ROUTINES 
The functions STARTREAD, ADVANCE, and ENDREAD are used to acquire 
data from a data card one character at a time. The atom returned is 
not placed on the object list thus gaining processing speed and 
preventing the object list from becoming cluttered. The function 


CCLASS may be used to identify the type of character returned. 


STARTREAD(_) 


STARTREAD causes a new card to be read. The value of the function 


is an atom made from the first character on the card. 


ADVANCE( ) 

ADVANCE returns as an atom the next character on the card. After 
the 72'd character is read, a STARTREAD occurs. ‘No end of card or 
last card indication is given. The objects CURCHAR and CHARCOUNT 


are not implemented. 


ENDREAD( ) 


This function causes the remainder of the card to be ignored. 


UNPACK (A) 
The characters in the PNAME of the atom A are returned as a 


list of atoms. The atoms are not on the object list. 


CCLASS (X,Y) 


CCLASS returns T if the first character of the PNAME of the 
atom X is in the set of characters of the PNAME of Y. 
ee) - COCLASSCA BDAC). > 


CCLASS(1,B1C) > NIL 
CCLASS($$'1',A0123456789) >T 


ar SI 
The functions PACK, CLEARBUFF and MKATOM are used to assemble 
a character string and to convert it to internal form. Atoms 


generated are placed on the object list. 


PACK (X) 
The function PACK places the PNAME of the atom X at the 
end of the string of characters in CBUFF. The size of CBUFF 


is an assembly parameter currently set at 80. 


CLEARBUFF(_) 


This function sets CBUFF to bhanks. CBUFF is initially 


blank and is reset to blanks by MKATOM and CLEARBUFF. 


MKATOM ( ) 

The function MKATOM expects a valid S-expression in CBUFF. 
This character string is given to the READ function which returns 
an atom or a list eorresponding to the S-expression found. Any 
brackets in the character string must be of the type indicated 
on the EXEC control card. If CBUFF is blank or there are unmatched 


parentheses, the error CH4 is given. CBUFF is reset to blanks. 


3.9. DATA TYPES 


Alphabetic 


The READ routine will accept input punched on either an IBM 029 
or 026 keypunch (BCD or EBCDIC). The characters which are recognized 
as being different are the left and right parentheses and the plus 
sign. The character set used is indicated in the PARM field of the 


EXEC card (ref section V). All characters are accepted as valid. 
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The maximum length of a BCD printname is presently set at 80 
characters. This may be changed at assembly time by setting the 


variable ~ATMSZ to the desired value. 


Integers 
A fixed point number (integer) consists of an optional sign followed 
by up to 16 digits.with or without a positive scale factor. The 


: ; ; 32 
maximum integer is 2° -1. 


Floating Point 

A floating point number consists of an optional sign followed by 
up to 16 digits with a decimal point that is not the first or last 
character. An exponent may be present in the form of the letter E 
followed by an optional sign and one or two digits. 

Floating point numbers are stored in the short precision format 


giving 7 décimal places of precision and a magnitude range of tor’? 


to 10°!?. 


Logical 

A logical number consists of a maximum of 11 digits where each 
digit is derived from the character set O through 7. Each logical 
number is followed by the letter Q and if desired an optional scale 
factor. A sign will be ignored by the interpreter. 

Logical numbers are considered to be in base 8 notation and are 
used to produce a 32-bit signed integer with any extra high-order bits 
being lost. The scale factor itself is an exponent to the base 8 
and has the effect of shifting an octal digit left the number of times 


specified by this exponent. 
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3.10 THE PROG FEATURE 


PROG 

When PROG is entered, each PROG variable is paired with NIL and 
added to the top of the association list. The remainder of the programme 
is searched for atomic symbols understood to be labels. A GOLIST is 
formed in which each label is paired with a pointer to that part of 
the programme following fee label. 

The execution of the programme then commences. The PROGIND is 
set on. The list of statements is executed, one statement at a time. 
Since a statement is a list, all atoms are taken to be labels and are 
recognized and ignored. Before executing a statement by calling EVAL, 
the GOLIST, the association list, and the point to the rest of the 
programme is saved. 

Since statements within PROG are evaluated for their effect wath 
than their value, the function COND must act somewhat ore re 
That is, if COND does not find a TRUE clause it must not give an error 
diagnostic, but rather it must return. To differentiate between a 
normal COND and a COND with a PROG, EVCON (which is used to evaluate 
the COND in both places), must test the PROGIND. Since, however, 
PROGIND is turned off whenever LAMBDA is encountered and when 
returning from a PROG, EVCON must save the PROGIND and restore it 


whenever control is returned to EVCON. 


GO unsaves the pushdown stack until the return address to the 
call on EVAL from PROG is encountered. The next three unsaves produce 
the ALIST,GOLIST, and the rest of the programme. The GOLIST is 
searched for the argument of GO. The stack is then restored by saving 


the pointer to the new statement to be executed, the GOLIST,ALIST, and 
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the above-mentioned return address. A branch is then made to EVAL 


to evaluate the labelled statement. 


RETURN 
As in GO, RETURN unsaves from the pushdown stack all addresses 
stored by the PROG, then returns control to EVAL with the argument of 


RETURN in the A register. 


3.11 ARITHMETIC ROUTINES 

The arithmetic routines that perform similar operations are com- 
bined into one routine with multiple entry points. These routines all 
accept integer or floating point arguments and in the cases where there 
is more than one argument, the modes may be mixed, in which case the 
answers are returned in floating point form. All routines produce 
error diagnostics if non-numeric arguments are supplied to them. The 
logical variable is treated as integer. 

Below is a list of functions implemented, grouped as to their 
common routines: 
ADDI (X)>X+1 
SUBI1 (X)>X-1 


MINUS (X)>(-X) 


AOL & Sey ay Oe bo OG A, 


TIMES (X,Y ,Z5 <<.) >R*V*Z*. 2.2» 


DIFFERENCE (X,Y)>X-Y 


QUOTIENT (X,Y)>X/Y 


t 


od eh or 


ta 


u4 Cis: 


vie 


an) 


- 


ate 


cy Ve 
ae 


La 


ke 


PRESS 


a aT ee ek 


eo, 


o iy 


i 
ia 
a. 


‘ec Say 


be? ek we 


REMAINDER (X, Y)-*X~ INTEGER (X/Y)*Y 


ZEROP(X)~T if X INTEGER and X=0,T if FLOAT and |X 


MINUSP(X)~T if X LT O otherwise NIL 


LESSP (X,Y)*MINUSP (DIFFERENCE (X, Y) ) 


GREATERP (X, Y)~MINUSP (DIFFERENCE (Y,X) ) 


EQUAL (X, Y)*ZEROP (DIFFERENCE (X,Y) ) 
The arguments of EQUAL may be S-expressions and mixed alphabetic 


and numeric. 


EXPT (X,Y) X**Y 
If Y is integer, EXPT is computed by repetitive multiplication 
and X may be negative. Otherwise logarithms are used and X may not 


be negative. 


3.12 FUNCTIONS NOT IN THE LISP 1.5 PROGRAMMER'S MANUAL 
APPEND] (X, Y) 
The function APPEND1 is used to add an atom Y to the end of the 


list X. It has the lisp definition below - 


(APPEND1 (LAMBDA (X,Y) (APPEND X(CONS Y NIL)))) 


TTAB (N) 


The function TTAB is used to move the print buffer pointer PRTAB 
to buffer position N. N must be a positive integer. The S-expressions 


printed by PRIN1 or PRINT will begin at print position N. 


XTAB (N) 
This function is similar to TTAB but rather moves the buffer 
pointer N positions to the right of its present location. If the end 


of the buffer is passed the line is printed. 


GT 1.E-6 otherwise NIL 
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EVENP (N) 
EVENP accepts an integer as an argument. It returns T 


if the integer is even, NIL if odd. 


CCLASS(%..Y) 
CCLASS returns true if the character X is in the set of 


characters Y. (refer to section 3.7). 


MKATOM(_) 


Refer to section 3./. 
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The Lisp Library 


The library facility allows the convenient storage and 
retrieval of standard lisp functions such as SELECT. The library 
essentially functions as a set of possible inputs which may be 
selected by the interpreter. 

The library is a partitioned dataset where each member is 
a sequence of cards containing valid lisp input. For example, this 
member SELECT would contain the doublet defining the lisp function 
SELECT. The member COMPILER would contain the definition statements 
for the lisp compiler functions. By execution the doublet - 

LIBRARY ( (SELECT, COMPILER) ) 
input to the interpreter would be switched from SYSIN, first to the 


member SELECT, then to the member COMPILER and then back to SYSIN. 
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The Library Function — LIBRARY ((X)) 


The library function has one argument which is a list 
of desired library members to be selected as input. On entering 
the function, the argument list is NCONC'd to the list of presently 
outstanding requests. Thus the requests are serviced on a last-in 
first-out basis. If, on entry to the library function, input is 
still coming from SYSIN, various pointers are initialized such 
that any further requests for input will come from the first and 
then subsequent members in the list. When the end of the list 
is reached, input is switched back to SYSIN. 

The value of the library function is the list of 
outstanding members. 

When using the library function, the DD control card - 
//LISPLIB DD DSNAME=LISPLIB,DISP=OLD: must be added to the control 


cards for executing a kisp program. 
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Initializing the Library 


The library is a partitioned dataset with records that 
are unblocked card image. The cards must be EBCDIC. 
The following control card contains the necessary information 


to défine the direct access space required for the library. 


//LISPLIB DD DSNAME=LISPLIB , VOLUME=SER=----- , DISP=(NEW, CATLG) , C 
// SPACE=(TRK, (30,10,2)) , UNIT=2314, C 
// DCB= (RECFM=F , BLKSIZE=80 , LRECL=80) 


Members may be added to the library using the I[EBUPDTE 

utility program. 

// JOB 

// EXEC PGM=IEBUPDTE 

//SYSUT1 DD DSNAME=LISPLIB, DISP=OLD 
//SYSUT2 DD DSNAME=LISPLIB, DISP=OLD 
//SYSPRINT DD SYSOUT=A 

// SYSIN DD * 

./ ADD NAME=CDDDR 

DEFINE( ((CDDDR(LAMBDA(Z) (CDR(CDDR X))) ))) 
./ ENDUP 

/%* 

Interdependencies of functions defined in the library may 
be satisfied by using the LIBRARY function. For example, a compiler 
defined in the library requires the functions LENGTH and MAPLIST also 
defined in the library. The library member defining the compiler should 


then have a LIBRARY function request for the other functions. 
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The following example illustrates the interdependencies 
and also how to eliminate the printout of the defined function. 

./ ADD NAME=COMPILER 

LIBRARY ( (LENGTH, MAPLIST) ) 

EVAL ( (DEFINE (READ) ) NIL) 

(lambda expressions for the compiler functions) ) 

./ ENDUP 

Beware that circular interdependencies are not set up as 


the library function will then not terminate. 
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3.13 THE TRAP. SUPERVISOR 

All programme interrupts are accepted by the interrupt 
supervisor. On an interrupt, a check is first made for a garbage 
collection signal (register FREE equals 1). If not, the information 


below is printed. 


PROGRAM INTERRUPT - interrupt type 


TRAP-—PSW - program status word 
REGSO-7 - registers 0-7 
REGS 8-15 - registers 8-15 


If the interrupt code is / to F, an arithmetic error has 
occurred. Execution of the function causing the interrupt is resumed. 

If the interrupt code is 1 to 6, a function has indiscriminatly 
used CAR's and CDR's within an atom. Execution of the doublet causing 
the error is terminated with the error message F4 and the next doublet 


is read in for. evaluation. 
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3.14 TRACING 


Two levels of tracing have been implemented. 


Function Level Trace 
Trace prints the name of the function and its argument when 


the function is entered and its value on completion. 


Statement Level Trace 
A full trace of all entries to APPLY or EVAL is produced. 


- examples in Appendix II. 


TRACE (X) 

If the argument of TRACE is an atom, a statement trace is 
produced of all entries to APPLY or EVAL. 

If the argument of TRACE is a list of functions, a function 


trace 6f the named functions if produced. Only EXPRS are traced. 


UNTRACE(X) 
If the argument X is an atom, the statement trace is turned 


off. If a list, tracing of the named functions terminates. 


3.15 POSSIBLE DIFFERENCES FROM OTHER LISP 1.5 SYSTEMS 

1) The function MKATOM is a replacement and extention of the functions 
INTERN, MKNAM and NUMOB 

MKATOM=—INTERN (MKNAM) 

MKATOM will accept any S-expression placed in CBUFF by PACK and 
returns an atom or a list structure. 

2) UNPACK takes an atom as an argument. 

3) GO must only be given atomic labéls, 


4) + and!- must not be used as characters in an atom. 


4. a i 
Seal 


a 


‘i 
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8) 
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The function CCLASS has been used to replace LITER, DIGIT, OPCHAR, 
and DASH. It is also more general. 

The functions ARRAY, ERRORSET, RECLAIM, COUNT, UNCOUNT and SPEAK 
are not implemented. All ee undefined functions should be 
definable in terms of those supplied. 

The function TRACE may be used to give either a function trace or 
a statement trace. 

Fixed point numbers may have a scale factor e.g. I1/E5. 

The functions STARTREAD and ADVANCE generate non-unique alphabetic 


atoms. They do not signal SEOFS nor S$EORS. 


3.16 POSSIBLE EXTENSIONS OF THE SYSTEM 


1) 


2) 


3) 


4) 


5) 


The ERROR routine should obtain and print more information when 
an error occurs.. 

The READ and TRYATOM ee should be rewritten to a more 
efficient logic. 

A checkpoint facility should be added to allow TEST and SET and 
to allow batch processing of student jobs. 

A compiler and LAP function should be added. 

Floating point numbers could be stored in long precision form. 


The arithmetic routines perform computations in long precision, 


then truncate to single. 
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IV ERROR DIAGNOSTICS 
4.1 SYNTAX ERRORS 

If the READ routine finds syntactical errors in an S-expression 
one of the following special atoms will be inserted at the place in 
error: 
ERRB - a '.' was encountered as the first non-blank character after 
"ek ee 
DOTERRI - the second S-expression in a dotted pair is not followed by 
a right parenthesis. 
DOTERR2 - a '.' or ')' was encountered as the first non-blank character 
after a dot. 

The message RI-SYNTAX ERROR precedes the printing of the 


S-expression with the error. Execution is attempted. 


4.2 RUNTIME ERRORS 
When an execution time error occurs in a LISP 1.5 programme the 


following type of error diagnostic occurs: 


AX error code - error message 
* S-expression 1 

*  §S-expression 2 

’A*K*E TRACE BACK FOLLOWS 

* #S-expression 3 


* §-expression 4 


pecnnesetie 1 and 2 are related to the type of error encountered 
and are described below with the error messages. The trace-back is a 
list of the functions entered recursively but not completed at the time 
of the error. The most recent function is printed first. The statement 


being executed precedes the call on the function containing the statement. 
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interpreter Errors 


A1-CALL TO ERROR 

The Function ERROR has been called 

S-expression 1 is the argument of ERROR 
A2-FUNCTION NOT DEFINED 

A construction of the form (FN...) has been 

encountered. However, the atom FN is not a 

defined function. 

S-expression 1 is the FN in question. 

S-expression 2 is the association list. 
A3-NO ARGS OF COND TRUE 

On evaluating the function COND, no true 

propositons were found. 

S-expression 1 is the list of the arguments 

given COND. 

S-expression 2 is the association list. 
A5-SET VARIABLE UNDEF. 

The function SET or SETQ was given an 

undefined programme variable. 

S-expression 1 is the programme variable. 

S-expression 2 is the association list. 
A6-UNDEF LABEL IN GO 

The label given as the argument of GO has not 

been defined. 

S-expression ] is the label. 


S-expression 2 is the list of the labelled statements. 
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-_A7-MORE THAN 22 ARGS 


The interpreter can handle only 22 arguments 
for a function. 
S-expression 1 is the list of the arguments to 
the function. 
A8-UNDEFINED VARTABLE 
The variable is not defined as a function argument 
on the association list and does not have an 
assigned value. 
S-expression 1 is the variable in question. 
S-expression 2 is the association list. 
CH4-INVALID S-EXPR GIVEN MKATOM 
The area CBUFF is blank or contains unmatched parentheses. 
F2-TOO MANY ARGUMENTS -EXPR 
F3~TOO FEW ARGUMENTS-EXPR 
The wrong number of arguments have been given 
to a defined function. 
S-expression 1 is the list of the function 
variables. 
S-expression 2 is the list of the supplied 
arguments. 
F2-TOO MANY ARGUMENTS-SUBR 
F3-TOO MANY ARGUMENTS-SUBR 
The wrong number of arguments have been 
given to a lisp function. 
ae, l is the function. 


S-expression 2 is the list of the arguments 
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F4-FN ERROR INSIDE ATOM 


A function has indiscriminatly used CAR's and CDR's within an atom. 
G2-PUSHDOWN STACK OVERFLOW 
The depth of recursion is beyond the capacity of the interpreter's 
save area. Non-terminating recursion will cause this error. 
GC1-NO STORAGE ALLOCATED 
The operating system could not provide sufficient space for 
freeword storage (fewer than 2500 cells). 
GC2-STORAGE EXHAUSTED 
The garbage collector is unable to find any unused storage. 
IT 2-(-X) **Y 
The function EXPT has been requested to raise a negative number 
to a floating exponent. 
I3-BAD ARITHMETIC ARGUMENT 
An arithmetic routine was given a non~arithmetic argument. 
I5-EXPT TOO LARGE 
The maximum exponent is 174.6731. 
LI-NOT IN LIBRARY-XXX 
The member XXX is not in the library. 
R1I-SYNTAX ERROR 
A syntax error has occurred while reading an S-expression. 
Reference the section on syntax errors. 
R2-BAD BRACKET COUNT 
An end of file was reached while reading an S-expression. S-expression 
1 is the list as read with needed brackets generated. 
R5-NAME OR NUMBER TOO LONG 
A BCD printname or a number is longer than that accepted by the 


interpreter. Truncation occurs on the right. 
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V IMPLEMENTATION GUIDE 


The distributed tape consists of the interpreter source deck, 


card image, with a blocking factor of 20. 
5.1 ASSEMBLY OPTIONS 


The stack size is set at assembly time. It may be changed by 
replacing the appropriate card in the source by either updating 
the tape or by first punching the card deck (about 4000::cards). 

The pertinent cards as set in the distributed deck are as 
follows: 

STACKSIZE  EQU 4000 WORDS FOR PDS 
ATMSZ EQU 80 MAX PNAME 
CBUFFSZ EQU 80 SIZE OF CBUFF 
The distributed program requires about 33K plus space for freeword 


storage. 
5.2 EXECUTE CARD OPTIONS 


One option is recognized in the PARM field of the EXEC control 
card: PARM=BCD indicates that the Lisp programs were produced on an 


IBMO26 Keypunch. The 029 keypunch is assumed as the default. 
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5.3 SAMPLE PROCEDURES 


Assemble and test from the distributed tape 


The object module is left in the data set LISP on the desired 


volume 
/ {TSTLISP JOB MSGLEVEL=1 
i; EXEC  ASMFCLG 
//ASM.SYSIN DD VOLUME=SER=LISP , UNIT=2400, DSNAME=SOURCE, X 
ei DCB= (RECFM=FB , BLKSIZE=1600, LRECL=80) , DISP=OLD 
//LKED.SYSLMOD DD VOLUME=SER=--~---- , DSNAME=LISP (LISP). a 
// DISP= (NEW, KEEP) , SPACE=(TRK, (71,5,1)),UNIT=2311 
//GO.SYSPRINT DD SYSOUT=A 
//GO.SYSIN DD * 


any test decks 
/* 
Following the above procedure further tests may be run with the 


following control cards. 


/ [LISP JOB  MSGLEVEL=1 

//JOBLIB DD DSNAME=LISP , VOLUME=SER=---- , UNIT=2311, DISP=OLD 
// EXEC PGM=LISP,PARM=BCD 

/ /SYSPRINT DD SYSOUT=A 

/ /SYSIN DD 


Lisp tests, punched on an 026 keypunch 
/* 
Adding Lisp to LINKUIB 
Lisp may be added to LINKLIB by modifying the corresponding card 
in the first procedure to - 
//LKED.SYSLMOD DD VOLUME=SER=-~---,DSNAME=SYS1.LINKLIB(LISP) ,UNIT=2311,DISP=OLD 


The JOBLIB card is then not required to run Lisp. 
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NOTE: The above assumes that the user is using the system 
ASMFCLG procedure or a comparable one with the same procedure name and 


step names. (i.e. ASM & LKED). 


5.4 REPORTING ERRORS 


Any comments, suggestions or indications of interpreter 
errors would be greatly appreciated by the author. 


Please contact - 


Mr. J. F. Boice 
Computing Centre 
University of Waterloo 
Waterloo, Ontario, Canada 


Corrections and additions to the interpreter will be distributed 


as the need arises. 


The author would appreciate receiving any interesting or useful 


Lisp programs and documentation. The programs could be returned on the 


supplied reel of tape. 
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APPENDIX I 


The Lisp Interpreter 
- Definition in M-expressions 


~ Flowcharts 
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THE LISP INTERPRETER 


evalquote[fn;args] = [get[fn;FEXPR] V get[fn;FSUBR]> 
eval[cons[fn;args];NIL] 
T>apply[fn;args;NIL] ] 
apply[fn;args;a] = [ 
null[{fn] > NIL; 
nel Gu itaee oper in eacadelosar-* areesa}: 
.spread[ares]; 
get ifin;SUBR}:<"* ALIST: = a; : : 
link to ieee 
.T + apply [cdr[sassoc[fnja;3\-[[];error[A2]]]} ]:args;a]; 
eq[car [fn] ;LABEL]>apply [caddr [fn] ;args;cons[cons[cadr[fn];caddr[fn]];a]]; 
eq[car[fn];FUNARG]>apply[cadr[fn];args;caddr[fn]]; 
eqfeax [fn 1 <_AMBDA}+eval [eaddr[ fi] :weone! pairicadr [fn}sares]call: 


T > apply[eval[fn;a];args;a] ] 
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eval[form;a] = [ 

null[form] > NIL; 

numberp[form] > form; 

atom[form] > [get[form;APVAL] > covicemi *: 

T > cdr[sassoc[form;a;A[[ ];error[A8]]]]]; 

eq[car[form];QUOTE] > cadr[form]; 

eq[car[form];COND] > evcon[cdr[form];a]; 

Sa alicon even) io beanlceci) wei cite e sept loses ss eee oa tern ise asi: 
set [car[form] ;FEXPR]>apply[fexpr; list [cdr [form] ;a}3al; 


ee 


ALIST: =a; | : 
; bs 
~ to address-subr 


A:= cdr[form]; 


get [car[form] ;SUBR]> 


ee ee Q: = ALISTs = as : 
link to address-fsubr 
T>eval [cons[cdr[sassoc[car[form];a;A[[];error[A9]]]]; 
edyv i formit:ali: 


T>apply[car[form];evlis[cdr[form];a];a]] 


“This is the value returned by get. 
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evlis[m;a] = prog[[w]; 
w: = NIL; 
EVLISS w: = nconc[w;cons[eval[car[m];a];NIL]]; 


cdr[m]; 


: 
i 


[null[m] > return[w] ]; 


go[EVLISS] ]; 


evcon[c;a] = prog[[]; 
EVCONN [null[{c] > [progind > return [c]; 
T > error[A3]]]; 
fevallcaar[c}];:a] + return[eval[cadar[c}:a]]]; 
c = cdr{[c]; 


go[EVCONN J; 


define [x] = deflist [x;EXPR] 
deflist [x;ind] = prog[[m] 
m: = x3 
A remprop[caar[m];ind]; 
replacd[caar[m];cons[ind;cons[cadar[m];cdaar[m]]]]; 
replaca[m;caar[m]]; 
m: = cdr[m]; 
[null[{m] > return[x]]; 


go[A]]; 
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Store needed) : GARBAGE COLLECTOR 
registers waa ale 
SAVE A 
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SAVE Q 


start scan 
of PDS at 
TEMPORAR 


current cell 
of PDS > RI (1) 


Rl in 
bounds of 


end of 2 
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used part 


PDS pointer 


SAVE '0O! 


CDR(R1 
marked 


os, Y 
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| mark CDR(R1) 


, CDR(R1)>R1 
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Garbage Collector 


bart: Z 
initialize 
pointer R3 
to scan FWS 
OR(R3) FREE>CDR(R3) 
N 
marked 


R3>FREE 


set mark off 


up pointer 
R3 to next 
cell 


UNSAVE M 
UNSAVE Q 
UNSAVE A 


collect 
any cells 
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ERROR GC2 
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SAVE RETURN 


SAVE PROGRAM | 


V 


NIL>GOLIST 


A-+PROGT 
CAR(A)+A 


PROGT 7~A 


cons (CARA) ,NIL) +A 
“CONS (A, ALIST)+ALIST 
CDR(M)>A 


N 


CDR(A)7-M 


CAR(M)>A 


CONS (A, CDR(M)}+A 


CONS (A, GOLIST} GOLIST 


PROG Chart 1 


The PROG variables 
are added to the 
ALIST. 


The GOLIST is 
constructed. 
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PROGT?Q 


CDR(Q)*Q 


et4 


SAVE Q 

SAVE GOLIST 
SAVE ALIST 

SET PROGIND ON 


7 


EVAL (A, ALIST) 


> 


I< PROGRET 


UNSAVE ALIST 


UNSAVE GOLIS} 
UNSAVE Q 


PROG Chart 2 


The program is 
executed. 


NOTE: At the call on 
EVAL the PDS contains 
the return address 
(PROGRET). . This is 
used in GO and RETURN. 
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UNSAVE RET 


UNSAVE ALIST 
UNSAVE GOLIST 
UNSAVE M 


BASSOC(CAR(A) , 
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CAR(M)7A 


‘ 


SAVE M 
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SAVE ALIST 
SAVE RET 


Branch to 


EVAL(A, ALIST) 


PROG Chart 3 


Execution of GO 
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PROG Chart 4 


UNSAVE RET Execution of RETURN 


RET: A(PROGRET) 
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UNSAVE ALIST 
UNSAVE GOLIST 
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APPENDIX II 


A sample Lisp run showing the initial object list and 


PRETTYPRINT printing itself. 
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// 
{LISP JOB COOLOJ.F.80LCE,LI SP»MSGLEVEL=1 JOB 29% 
//JOGBLIB OD BSNAME=LISP,DISP=OLD , 

ff -EXEC PERetLise 

J/LISPLIB DO ISNAME=LISPLIB,O0 SP=OLD 

J/SYSPRINT 3D SYSIUT=A 

ffstsit. 0D -* 

T2F 2361 ALLOC. FOR LISP 

{cF2371 JOSE IB . ON 233 

e-F2371 LISPLIS ON 233 

T=F2371 SYSIM ON O0C 


-26975 LESP CELLS ALLOCATED. 
CILLETTING . 


ARGUMENTS FUR EVALQUOTE eee 
EV AL 
(QBL IST MIL) 


TIME ~ OWS? VALUE. “1S ass : 
{NIL CA® COR QUITE CONS EVAL DEFINE EQ ENUAL ATOM LEFTSHIFT DIFFERENCE REMAINDER QUOTIENT NULL 


ADDL SUSL MINUS PLUS TIMES COND LAMBDA T APPENO PROG GO RETURN SET CSET CSETQ SETQ SADR CODR CAAR 
COAR CABDR CADAR CAADR PRINT ZEAD F GET MEMBER EVLES NCONC PAIR APPLY APPENDL APVAL EXPR SUBR FEXPR 


FSUBR LABEL FUNARG ERRB DOTERR1 DOTERR2 — + AND OR LOGOR LUGAND LOGXOR EVENP MINUSP. ZEROP LESSP 
GREATERP ERROR XTA8 TTA3 NUT FIXP FLOATP LIST LOGP PRINL TERPRI DEFLIST REMPRIP FUNCTION ATTRIB 
PROS2 NUMBERP PLACA RPLACD OBLIST LISRARY GENSYM EXPT UNPACK ADVANCE ENDREAD STARTREAD UNTRACE 
—". JFRACE PACK CLEAABUFFE MKATUM COLASS SASSIC) - ee ee ee | pera 


. ARGUMENTS FOR EVALQUOTE ae. 
LIBKARY 
{({PEVAL BI 


TI ME OMS y VALUE is eee 
(PEVAL } 


ARGUMENTS FOR EVALQUOTE oe. 
EV AL 
((DEFINE (READ)) NIL) 


TIME LG938MS, VALUE IS see 
(PEVAL PRETTYPRINT SUPERPRINT ENOLINE) 


ARGUMENTS FOR EVALQUOTE ... 
CSET 
{RPAR )} 


TIME OMS, VALUE IS ecco 
{APVAL €3)) - 


ARGUMENTS FG2& EVALQUOTE ee. 
aS I 
{LPAR (} 


TI“ OAS, VALUE ZS e220 
a (APVAL €€)) 


ARGUMENTS FOR EVALQUOTE eee 
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PRETTYPRINT 
(({PRETTYPRINT SUPERPRINT ENOLINE) ) 


(PRETTYPRINT 
(LAMBDA (L) CPROG (TT 1) 
A (COND : 
((NULLE L) (RETURN NIL))) 
CTERPRIS 


(PRINL LPAR) 

(PRINT (CAR L)) 

{SETO I 3) 

(XTA3 3) 

({SUPERPRINT {COND 
CESETO: SY: (G2T (CAR. 1). (QUOTE EXPRI}3 TT) 
CUSETO FT A5EF (CAR “LE tQUOTe SeePrnis) iT) 
(T (QUOTE UNDEFINED) ))) 

(PRINT RPAR) 

(5e70 £2 {C08 1) ) 

(GO A)))) 


(SUPERPRINT 
(LAMBDA (E) (COND 
470m E) {PRINT £)3 
(Tt. 4PROG CEP MM) 
(SETQ EP E3 
(PRIWL LPAR) 
A (CUND : 
((MEMBER (CAR EP) (QUOTE (AND 


7... Bae aca 
: 


MIN 
PROG2))) (GU PL)) 
(150 LCAR EP) (QUOTE PROG)? 63> PP)})1 

(SUPERPRINT (CAR EP) ) 
(SEFQ EP (COR EPS) 
(COND ; 
C(NULL £P) (RETURN (PRINL RPAR))) 
CtTATOM-EP?- 160 PDI) ) 


(XTAB 1) 
{GO A) 

PK foc. 2 -t5si £733 

PD {PRIN (QUOTE. «. }) 
{PRIN1L EP) 

. (RETURN (PRINL RPAR)) 

PL fSETQ- i: {A001 -i}2 
(SUPERPRINT (CAR EP)) 

PM (SET or tC EP 24 
(COND 


((NULL EP) (GO PJ)) 
CCATOM EP) (GO PK})} 
(ENDLINE) 
(SUP-ERPRINT (CAR EP)) 
(GO PM) 
PJ LSETO 3° {3081 £}3 


Naan’ 


ey 
a ae 


) wy 
| me Oye ee ee SO ee ae! eee? Sra 


(RETURN (PRINT RPAR)) 


PP (PRINL (CAR EP)) 


(SETQ EP {COR 


(SETOQ 2: {A001 443 


(COND 
CENULLE- EP} 
({A TOA EP) 
(XTAB 1) 


(GO PJ)) 
(SO PK))) 


(SUPERPRINT (CAR EP)) 


PY (SETQ EP (CDR EP)) 


(COND 
((NULL EP) 
({(ATOUM EP) 
(ENOLINE) 
(COND 


(CATOM {CAR EP)) 


(XTAB 6) 
PX foc. OF tPiLOS 
J 
2)) 


(GO PJ)) 
(GO PK7)} 


(GO PZ))) 


" (SUPERPRINT (CAR EP)) 


: :. (SETQ I €PLUS 
I 
-2)) 
(GG PY) 


PZ PRINT (CAR EP)) 


3 (TTAB (TIMES 
F Gg eS ae 
5 DOT SR or Se ar ee ee T : 2 
2) 
s 3)) 


(SETO -€P- (Cok -.£P3) 


(CUND 
( (NULL EP} 
C(f{ATOM EP} 


(GO PX)))))) 


(ENOL INE 
(LAMBDA NIL (PROG NIL 
C{TERPRT} 
CTTAB CT IMES 
I 
34772) 


TIME 1223MS, VALUE IS ees 
NIL 


ARGUMENTS FOR EVALQUUTE ee. 
DEFINE : 


(GG PJ)) 
(GO PK)) 
(({ATOM (CAR EP)) 


(GO PZ))) 


(( (FACTORIAL (LAMBDA (N) (COND ((ZEROP N) 1) 


TIME OMS, VALUE [IS ¢e° 
(FACTORIAL) 


® ARGUMENTS FOR EVALQUOTE eee 
TRACE 
(T) 
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~ TIME Aare VALUE 15 io 


CT {TIMES N CFACTORIAL (5031.:N)7)33337) 
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| 
ARGUMENTS FOR EVALQUOTE eee 
FACTORIAL 
t22 | 
#¥% ENTERING APPLY WITH FN- FACTORIAL 
e** AND ARGS- (2) 
£e%* CNTERING APPLY WITH FN- (LAMBDA (N) (COND ((ZEROP N) 1) (T (TIMES N CFACTORIAL (SUB1L N)}) 
3) | 
kk AND ARGS-— (2) | 
***e ENTERING EVAL WITH FORM- (COND ((ZER0P N) 1) (T (TIMES N (FACTORIAL (SUBL N))))) 
see EWTERING EVAL WITH FORM- (ZEROP N) ; 
#4%% ENTERING EVAL WITH ATUM- N=2 
“ee ENTERING EVAL WITH ATUM- T=T 7 
#**° ENTERING EVAL WITH FORM- (TIMES N (FACTORIAL (SUB1 N))) ! 
**¢ ENTERING EVAL WITH ATOM- °  N=2 ) 
exe ENTERING EVAL WITH FORM- (FACTGRIAL (SUBL N)) | 
eek ENTERING EVAL WITH FORIM- (SUBL N) | 
xke ENTERINS EVAL WITH ATOM- N=2 . | 
tee ENTERING APPLY WITH FN- (LAMBDA (N} (COND ((ZEROP N) 1) (T (TIMES N (FACTORIAL (SUB1 N))) 
))) ! 
xe AND ARGS-— ” (1) . 
*eX ENTERING EVAL WITH FORM- {COND ((ZEROP N) 1) (T (TIMES N (FACTORIAL (SUB1N))))) 
&%** ENTERING EVAL WITH FORM _ (ZERGP N) 
#e¢ ENTERING EVAL WITH ATON- N=1 | 
xe ENTERING EVAL WITH ATOM T=T | 
ae ENTERING EVAL WITH FORM (TIMES No CFACTOZIAL (S31 N))) | 
eee ENTERING EVAL WITH ATOM- - N=1 | 
#k* ENTERING EVAL WITH FORR-- - (FACTGRIAL- ¢5SUBL W)) i 
aes ENTERING EVAL WITH FURM- (SUBL N) : 
#** ENTERING EVAL WITH ATUM- N=1 | 
ae* ENTERING APPLY WITH FN- {LAMBDA {N) (COND {{(ZEROP N) 1) (T CTIMES N (FACTORIAL (SUB1L N))) 
)) | 
xxx AND ARGS- (0) ! 
eke ENTERING EVAL WITH FORM (COND (CZERDP VI 1) (CT C TIMES N (CFADTORIAL (SUBL N)}))) 
ts* ENTERING EVAL WITH FURM- ({ZERUP N) . 
&* ENTERING EVAL WITH ATOM- N=0 | 
TIME 29855. VALUE ES: wa | 
2 | 
ARGUMENTS FOR EVALQUOTE .e- ! 
UNTRACE | 
(1) | 
eee ENTERING APPLY WITH FN- UNTRACE | 
#&* AND ARGS- (T) | 
{ 
TIME OMS; VALUE IS eee | 
: | 
ARGUMENTS FOR EVALQUOTE coe 
TRACE ! 
(CEACTORIAL)) : 
TIME OMS. WALUE 1S. we | | 
os. | 


ARGUHENTS FOR EVALQUOTE eee 
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FACTURTIAL 


(5) | 
TRACE ENTERING- FAC TORIAL(4) 
TRACE ENTERING- FACTURIAL(3) 
TRACE ENTERING- FACTORIAL (2) 
TRACE ENTERING- FACTORIAL (1) 
TRACE ENTERING—- FACTORIAL (9) 
TRACED FUNCTION/VALJE- FACTURZIAL 1 
TRACED FUNCTIIN/VALUE- FACTORIAL 1 
TRACED FUNCT ION/VALUE- FACTORIAL 2 | 
TRACED FUNCTIIDN/VALUE- FACTORIAL 6 
TRACED FUNCTION/VALUE- FACTORIAL 24 
TIME tome -YAUE ES oe 
- 120 | 


ARGUMENTS FOR EVALQUOTE eee 
VEFINE 
CCCIESTS CEAMBOA NIL CPROG. 1U)-tSETOQ U ASTARTREAD}) C (PRINT U} (PACK U) -(COND CL{SCEASS. U -€QUDTE 
C)) CRETURN ChMKATOM)))) CSETQ U CADVANCE)) (G2 0)))))} 


TIME - OMS%4 VALAR: -1S- <a 
STES1S)} 


ARGUMENTS FOR EVALQUOTE eee 
te .5 
NEIL 
A 


ae 


Asst at DWAO TAO TIAMYM 


TEME 2414S, VALUE IS eee 
ADSGHIKPQRRTTYC 
=** ENO OF DATA 
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Pawel wr? Yrs 
DO fA Be eT PT eer 
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Appendix cn wa 


The following list are those functions that have been 
implemented. Those marked by an asterisk are new functions or differ 
from the function as described in McCarthy [1]. 

addl[n] 
* advance [ ] 
and [x,3%3---3%] 
append [x;y] 
appendl [x;y] 
apply [fn;args;a] 
atom [x] 
attrib -ix:yv} 
car [x] 
caar [x] 
cadr [x] 
eddr [x] 
caddr fx] 
cadar [x] 
caadr [x] 
cdr [x] 
*- ¢celess jxesy) 
clearbuff [-] 


“re 


cond [pyre ys PZren te + SPL 


i! 
cons [x:y] 


cset [xsy] 


csetq [x;y] 


AIP TY 
*r A} *e han 


i 


Oita 


heh 


; 
io aie? roe ae ae She ELA 


(a 


define [x;y] 
deflist [x:ind] 
difference [x;y] 
endread [ ] 

eq [xsy] 

equal [x;y] 
error [fn] 

eval [form;a] 
evenp [n] 

evcon [x;a] 
evlis [x;a] 
expt [n;c] 

fixp [n] 

floatp [n] 
function [x] 
gensym [ ] 

get [x;ind] 

go [label] 
greaterp [xsy] 
label [name;fn] 
leftshift [m;n] 
lessp [xsy] 
library {x] 
bist [x)3%5++-% 1 


3 


logand [n,3n 


pier 5My] 


logor [n,5ny3---5n,] 
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logp [n] 

logxor [n,5no;- 
member [x;y] 
minus [n] 
minusp [n] 
mkatom [ ] 
nconc [x;y] 

not [x] 

null [x] 
numberp [x] 

or [x,5X53-++ 65% 
pack [x] 

pair [x;y] 

plus [x] 3Xy5+--5% 
prinl [x] 

print [x] 

prog [pa] 
prog2 [xsy] 
quote [x] 
quotient [x;y] 
read [ ] 
remainder [n:m] 
remprop [x,ind] 
rplaca [x;y] 
rplacd [x;y] 
sassoc [x3a;:fn] 


set [xsy] 
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setq [x;y] 
startread [ ] 

subl [n] 

terpri [| 

times [n,;n53---3n 
trace [n] 

ttab [n] 

unpack [x] 

untrace [x] 

xtab [n] 


zerop [n] 


en 
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